home *** CD-ROM | disk | FTP | other *** search
/ Ahoy 1988 November / Ahoy_Magazine_88-11_1988_Double_L.d64 / File Locator (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  660b  |  17 lines
  1. 1 rem ==================================
  2. 2 rem    commodares problem #54-2 :
  3. 3 rem       file locator
  4. 4 rem    solution by
  5. 5 rem       larry louks & jim borden
  6. 6 rem ==================================
  7. 10 data 162,1,32,198,255,32,228,255,230,251,208,4,230,252,240,6,165
  8. 20 data 144,41,64,240,239,76,204,255
  9. 30 print"[147]- alpha & omega -64 or 128-":sa=2816:if fre(0)=fre(1) then sa=49152
  10. 40 fory=sa to sa+24: read k: poke y,k: cs=cs+k: next
  11. 45 if cs<>4012 then print "data error": end
  12. 50 input" enter filename";pn$: print: fb=251: fc=252: poke fb,0: poke fc,0
  13. 60 open 1,8,2,"0:"+pn$: get#1,a$,b$: d=asc(a$+chr$(0))+256*asc(b$+chr$(0))
  14. 70 print "starts at" d
  15. 80 sys sa: ln=peek(fb)+peek(fc)*256: t=d+ln-1
  16. 90 print "ends at" t: close 1
  17.